CAAElliptical_CometMagnitude <-
function(g, delta, k, r){
.Call("CAAElliptical_CometMagnitude", g, delta, k, r)
}
